home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
faq-s.zip
/
BOX.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-11-20
|
630b
|
31 lines
program box;
uses general,dos,crt,subs1;
var character:char;
begin
clrscr;
gotoxy (20,10);
ansicolor (31);
writeln ('┌─────────────────────────────────────┐');
gotoxy (20,11);
writeln ('│ │');
gotoxy (20,12);
write ('│ ');
ansicolor (30);
write (' This is a Sample of a Box Design ');
ansicolor (31);
writeln (' │');
gotoxy (20,13);
writeln ('│ Press Enter: │');
gotoxy (20,14);
writeln ('└─────────────────────────────────────┘');
gotoxy (35,13);
buflen:=0;
character:=upcase(readkey);
delay (500);
ansicolor (7);
clrscr;
halt;
end.